home *** CD-ROM | disk | FTP | other *** search
/ Scene Storm / Scene Storm - Volume 1.iso / coding / asm / utils / mouse / mouse.hex < prev   
Text File  |  1980-01-03  |  3KB  |  68 lines
  1.   file$="mouse" : 'v2.11
  2.   OPEN file$ FOR OUTPUT AS #1
  3.   lin=0 : a$=""
  4. Loop:
  5.   lin=lin+1
  6.   READ x$ : IF x$="**" THEN Endeth
  7. Beyond:
  8.   i=INSTR(x$," ")
  9.   IF i>0 THEN
  10.     x$=LEFT$(x$,i-1)+MID$(x$,i+1)
  11.     GOTO Beyond
  12.   END IF
  13.   x$=UCASE$(x$)
  14.   cs$=RIGHT$(x$,2) : x$=LEFT$(x$,LEN(x$)-2)
  15.   sum=0
  16.   FOR i=1 TO LEN(x$)
  17.     sum=sum+(ASC(MID$(x$,i,1)) XOR i)
  18.   NEXT i
  19.   IF (sum AND 255)<>VAL("&H"+cs$) THEN
  20.     PRINT "Checksum error in line";lin
  21.     GOTO Endeth
  22.   END IF
  23.   x$=a$+x$ : a$=""
  24.   FOR i=1 TO LEN(x$) STEP 2
  25.     IF MID$(x$,i,1) = "G" THEN
  26.       IF MID$(x$,i+2)="" THEN a$=MID$(x$,i) : GOTO Loop
  27.       y$=STRING$(ASC(MID$(x$,i+1,1))-63,VAL("&H"+MID$(x$,i+2,2)))
  28.       i=i+2
  29.     ELSE
  30.       y$=CHR$(VAL("&H"+MID$(x$,i,2)))
  31.     END IF
  32.     PRINT #1,y$;
  33.   NEXT i
  34.   GOTO Loop
  35.  
  36. Endeth:
  37.   CLOSE #1
  38.   PRINT "Operation complete"
  39.   END
  40.  
  41. 1     DATA ga0003 f3gf00 01gj00 a6ga00 03e9gb 00a64e 54ff18 2948ff f44230 57
  42. 2     DATA 00ff2c 780004 43fa02 787000 4eaefd d82940 fffc67 ga00f6 2c7800 81
  43. 3     DATA 0443fa 025070 004eae fdd829 40fff8 67ga00 e041ec ff1870 742c6c 2d
  44. 4     DATA fff84e aeff7c 2a6cff f41015 0cga00 3f67ga 008a4a 006620 41fa01 ed
  45. 5     DATA ff43ec ff1830 29006c 0c4000 096208 43fa02 088111 606e41 fa01d8 5d
  46. 6     DATA 606861 ga00ce 101d67 ga0096 61ga00 d60cga 003065 220cga 003962 d9
  47. 7     DATA 1c0240 000f41 ecff18 314000 6c7074 72ff2c 6cfff8 4eaefe bc528d 2f
  48. 8     DATA 60ca0c ga0053 660a61 ga0092 101d67 2060c8 0cga00 506618 61ga00 8b
  49. 9     DATA 82101d 04ga00 3165ga 0cga00 016206 61ga00 94609c 41fa01 2e48e7 f0
  50. 10    DATA f0c224 082c6c fffc4e aeffc4 220067 ga000a 2c6cff fc61ga 000a4c 45
  51. 11    DATA df430f 60ga00 142042 4a1866 fc5388 260896 824eae ffd04e 75226c 16
  52. 12    DATA fff820 0967ga 000a2c 780004 4eaefe 6242ac fff822 6cfffc 200967 3c
  53. 13    DATA ga000a 2c7800 044eae fe6242 acfffc 70004e 5c4e75 101d0c ga0020 2b
  54. 14    DATA 67f80c ga0009 67f253 4d4e75 0cga00 61650a 0cga00 7a62ga 04ga00 af
  55. 15    DATA 204e75 1940ff ea41fa 00cd70 0043ec ffba72 002c78 00044e aefe44 49
  56. 16    DATA 2940ff f06668 45ecff 98157c 000400 08422a 000942 aa000a 422a00 28
  57. 17    DATA 0e70ff 2940ff ec4eae feb629 40ffec 6b4215 40000f 93c94e aefeda 72
  58. 18    DATA 254000 1041ea 001420 885890 42a800 042148 000820 0a45ec ffba25 a3
  59. 19    DATA 40000e 357c00 0e001c 41ecff ea2548 002870 012540 002422 4a4eae 94
  60. 20    DATA fe3820 2cfff0 660843 ecffba 4eaefe 3e202c ffec6b 044eae feb04e d4
  61. 21    DATA 754d6f 757365 207631 2e3235 0a5573 616765 3a206d 6f7573 65205b 31
  62. 22    DATA 50203c 706f72 743e5d 20ga5b 535d20 3c7370 ga6564 3e5d0a 00696e 04
  63. 23    DATA 707574 2e6465 766963 65006d 6f7265 207468 616e20 390a00 546865 7b
  64. 24    DATA 206375 ga7265 6e7420 6d6f75 736520 7370ga 656420 697320 302e0a 3d
  65. 25    DATA 00696e 747569 74696f 6e2e6c 696272 617279 00646f 732e6c 696272 4e
  66. 26    DATA 617279 gd0003 f245
  67.       DATA **
  68.